CGI How-To/CGI HOW-TO.iso/chap5/5_2/form_pl/form.pl

Perl Script | 1996-06-15 | 411 b | 30 lines

#!/usr/bin/perl

require "parsehtm.pl";

sub formHandler
{
    local($tagString,$argString,$endString,%tagDict)
    = @_;

    local($retVal);

    $tagDict{"METHOD"} = "POST";
    $tagDict{"ACTION"} = "form.pl";

    $retVal = &stringForTagDict(%tagDict);

    return $retVal
}

$handlerDict{"FORM"} = "formHandler";

$output = &parseHtml("f2_pl.htm");

print "Content-type: text/html\n\n";
print $output;

1;